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I 

• REM 



IDENTIFICATION 



PRODUCT CODE: 
PRODUCT NAMES 

product date: 
maintainer: 



AC-E667J-MC 

CXCP8J0 EIS EXER MOD 
SEPTEMBER 1978 
DEC/XII SUPPORT GROUP 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 
BY DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT 
CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS MANUAL. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER 
SYSTEM AND CAN BE COPIED (WITH INCLUSION OF DIGITALS 
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF TTS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 

COPYRIGHT (C) 1973,1978 DIGITAL EQUIPMENT CORPORATION 
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SEQ 0002 



1. ABSTRACT: 

CPB IS A BKMOO THAT EXERCISES THE EIS IN THE PDP11/45 
AND THE PDP11/40. 

2. REQUIREMENTS: 

hardware: ANY pnpn/45 OR PDPll/40 WITH EIS OPTION. 
STORAGE: : CPB REQUIRES: 

1. DECIMAL WORDS: 471 

2. OCTAL WORDS: 0727 

3. OCTAL BYTES: 1656 

3. PASS DEFINITION: 

ONE PASS OF THE CPB MODULE CONSISTS OF EXECUTING EACH 

INSTRUCTION 12500 TIMES. 

4. EXECUTION TIME: 

CPB RUNNING ALONE ON A POPll/45 TAKES APPROXIMATELY 
30 SECONDS. 

5. CONFIGURATION REQUIREMENTS: 

11/40 OR LSI WITHOUT EIS OPTION, SEE SECTION 8. 

6. DEVICE/OPTION SETUP: 



MAKE SURE EIS IS INSTALLED. 
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SEQ 0003 



7. MODULE OPERATION: 



A. SETUP CYCLE COUNTER. 

B. TEST ALL EIS INSTRUCTIONS UNLESS SRI BITfl = 1. 

IF SRI BITfl = 1, CHECK ONLY XOP,SOB,MARK,SXT, AND RTT* 
C* IF NOT EOP*GO TO B. 
0. ELSE DO EOP AND GO TO A* 

8. OPERATING OPTIONS: 



SRI 





NO EIS C PS» DIREC 
ALL EIS # USE MFPS 
NO EIS, USE MFPS. 



UU UNLI \UKf oUOjfM AKA goAlf A«U nil 

ACCESS PROCESSOR STATUS DIRECTLY. 
USE MFPS INSTRUCTION* 



ALL EIS, PSW DIRECT* 



9* NON-STANDARD PRINTOUTS: 



NONE 
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SEQ 0004 



oooooo- 
oooooo- 



000005' 
000006' 

ooooio- 

000012* 

mm 

000016' 
000020' 
000022' 
00002V 

000026* 



050103 
000 



BKMQD <CPBJ >,,,,,, 125 
MODULE 40020, CPBJ ,,,,,, 12500 
-TITLE CPBJ DEC/Xll SYSTEM EX 
DDXCOM VERSION 6 23-MAY 
• LIST 

• ****ft***ft*ft*l 

BEGIN: 



00 

00000 
OOOOOl 

mm 

000000 

040020 

888553- 

000000 

8^88 

000000 

00000 

00000 
00000 



888J8 4 -' 

000106* 

000110- 

000112* 
000114* 

mm 

000122* 



2* 000000 
4* 000000 

y- mm 

2* 000000 

4* 000000 

5* 000000 

3; 000000 

I* 000000 

000000 

000000 

000000 m 
oSoooo 

000000 
000000 
000002 
000040 



00,2 

Irctser module 

-78 
BIN 

**************** 



*************************** 



*************** 



045102 



MODNAM: 

xflag: 

ADDR: 
VECTOR: 
BR1: 
BR2: 
DVIOl: 
SRI: 
SR2: 
SR3: 
SR4: 



. ASCII 

-BYTE 



.BYTE 
• BYTE 
*1 

OPEN 
□ PEN 
OPEN 
OPEN 



/CPBJ / 
OPEN 



PRTY+0 
PRTY+0 



;device 

;SWTTCH 
;S«ITCH 
^SWITCH 



************** 

STAT 



************** 



INIT: 
SPOINT 
PASCNT 

icont: _ 

ICOUNT: 

sofcnt: 

HRDCMT: 6 
SOFPAS: 
HRDPAS: 

syscnt: 
rannum: 

CONFIG: 

m\\ 8 

svro: 
SVRi: 
S?R2: 
SVR3: 
SVR4: 
SVR5: 
SVR6: 
CSRA: 

sbadr: 
acsr: 

WAS ADR 

astat: 

ERRTYP 
asb: 
awas: 
rstrt: 
WD to: 
wdfr: 
intr: 
idnum: 



40020 
START 

MODSP 


12500 



********************** 



NTER. 



OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 

OPEN 

OPEN 



OPEN 
OPEN 
RESTRT 
OPEN 
OPEN 
OPEN 
2 

-REPT 



; MODULE NAME. 

;USFD TO KEEP TRACK OF WBUFF USAGE 
; 1ST DEVICE ADDR, 

;1ST DEVICE VECTOR. 
;1ST BR LEVEL. 
;2ND BR LEVEL. 

INDICATOR I. 

REGISTER 1 
REGISTER 2 
. REGISTER 3 

J SWITCH REGISTER 
******************* 

; STATUS WORD. 
; MODULE START ADD 
; MODULE STACK POI 
;PASS COUNTER. 

;# OF ITERATIONS PER PASS=12500 
;LOC TO COUNT ITERATIONS 
?LOC TO SAVE TOTAL SOFT ERRORS 

;LOC TO SAVE HARD ERRORS PER PASS 
;# OF SYS ERRORS ACCUMULATED 
; HOLDS RANDOM t WHEN RAND MACRO IS CALLED 
;RESERVED FOR MONITOR USE 

SBfifMEB m mm Big 

;LOC TO SAVE RO. 

;LOC TO SAVE Rl. 

;LOC TO SAVE R2. 

;LOC TO SAVE R3. 

;LOC TO SAVF R4. 

;loc to save rs. 
;loc to save r6. 
; addr of curhfnt csr. 
;addr of good data, op 
; contents of csr. 
; addr of bad data, or 
;status rfc contents. 
?type of error 
; expected data. 
; actual data. 

;restart addrfss after fnd of pass 
; words to memory per iteration 
; words from memory per iteration 
;# of interrupts per iteration 
/ module identification number=2 
;"odule stack starts here. 
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o NLIST 
. WORD 
.L 1ST 
• ENDR 

000224* MODSP: 

•A********************************************************************** 
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II 

214 
215 



m 

55? 

228 



12-OCT-78 11:57 



104413 000000" 
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000240- 

000246' 



l P 66- -s- 

6 000262 



000262' 



000270- 
000274- 



_S9 000300* 

I Hllii: 

203 000326- 

204 000330- 

206 

207 000330- 

58! 
51* 



000336- 

mm- 

000346- 
000350- 



mm 

012767 

mm 

001403 



001 
104405 



012703 

mm 

022767 
001403 



001 
104405 



000401 

mm 

077104 



001 
104405 



mm 

177777 



777 001342 



001600- 
'25252 



001330 



000000- 000000 



125252 
000010 

001624- 001330 
177777 001310 

001626- 

052525 001276 



oooooo- 000000 



000010 



oooooo- oooooo 



SEQ 0006 



START: 
RFSTRT: 



2S: 

181?! 



END IT 

ENDTTS/BEGIN 



MOV 

MOV 
NOV 
XOS 
CMP 

BEQ 
HRDER 



g-l/TEHP 
Jl55252rTEMP 



; S IGN AL END OF ITERATION. 

; MONITOR SHALL TEST END OF PASS 

>SET TIP INDEX REGISTER 
;L0 AD SOURCE OPERAND 
; LOAD DESTINATION OPERAND 
;XOR SOURCE/DFST. 



<X0R INSTRUCTION PAILED> 

***************************************** ***************** 
<> 

/BEGIN, NULL 



-If B 
HRDERS 
.IFF 
HRDERS /BEGIN/ 
- ENDC 



;XOR INSTRUCTION FAILED 
;XOR INSTRUCTION FAILFD 



/ SBTTL 
IS: 



TEST XQP USING INDEX DEFERRFD 
125252/R3 



Y» X+10 
-1/ Y 
- X(R4) 

Y 



MOV 
MOV 
MOV 

MOV 
XOR 
CMP 
BFQ 

************************ 

»IF B <> 

HRDFRS /BEG IN /NULL ;XOR -1/12525? FAILFD 

.IFF 

HRDERS/BEGIN, ;XOR -1/125252 FAILED 

-ENDC 

. **************** *********************************************** 
; SBTTL TEST SOB FOR BRANCH 



<XQR 

**** 



******************* 



SOBl 
S0B3 



#10/R1 
R1/SOB2 



BR 
BR 
MOV 

SOB 

HRDER , <SOR SHOULD HAVF BR ANCHED> 

• * ************************************************************** 

• IF B <> 

HRDERS /BE GIN/ NULL ;SOR SHOULD HAVE BRANCHED 

. IFF 

HRDERS/BEGIN/ ;SOB SHOULD HAVE BRANCHED 

• ENDC 



/SBTTL TEST SOB FOR NO BRAHCH 
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229 

51? 

232 
233 
234 
235 

51? 

238 

m 

241 
5J1 

in 

5tf 

248 

P 

253 

m 
iff 

511 
5|? 
515 

264 

265 
266 
267 

ffl 

270 

534 

275 

ffl 

278 
279 

51? 
515 

284 



000356- 
000360' 



000404 



000360- 1044i 



88oif §- 

000374' 



000376- 
000402- 

mm- 

000414- 

mm- 

000426- 
000430- 
000434- 
000436- 
000442- 
000444- 



mm 

077107 



005001 
012746 
012746 



012746 

mm 

000403 
016501 
000205 
022701 
001403 



000444- 1044' 



000460' 



026706 

001403 



001 
104405 



000 



000466- 
000472- 
000474- 



322705 
)01403 



000474- 



001 
104405 



000 



oooooo- 000000 



000001 



016706 177430 



000007 
000001 
006401 

000002 

000002 

000001 



oooooo- oooooo 



177354 



oooooo- oooooo 



000007 



oooooo- oooooo 



SOB3S 
S0B5: 



/SBTTL 
MA: 



MARKO: 
MARKOA: 



2S: 



SEQ 0007 



. IF B <> 

HRDERS /BEG IN/ NULL 

. IFF 

HRDERS/BEGIN/ ;SOR 
• ENDC 

j *************************************************************** 



;SOR SHOULD NOT HAVE BRANCHED 
SHOULD NOT HAVE BRANCHED 



MOV 

SOB 



BR 



fl/Rl 

RI/SOR5 



MA 



TEST MARK INSTRUCTION 



SPOTNT/SP 

#MARKl,-(SP) 

SP/R5 

PC/MARKO 

MARXOA 

2(R5),Rl 

R5 

ll'* 1 



; INITIALIZE STACK POINTER 



MOV 

CLR 
MOV 
MOV 
MOV 
MOV 
JSR 
BR 
MOV 
RTS 
CMP 
BEQ 

HRDER . 
TlP B <> 

HRDERS /BEGIN/ NULL 
T FF 

HRDFRS /BEGIN/ /SUBROUTINE DID NOT GET PUSHED PARAMETER 

, ENDC 

• *************************************************************** 
CMP SPOINT/SP ;IS STACK POINTER CORRECT? 

BFQ 2S 

HRDER , <STACff POINTER INCORRECT FOR MARK> 

.*************** A ********** ************************************* 

'» IF B <> 

HRDERS/ BEGIN/ NULL ;STACK POINTER INCORRECT FOR MARK 

* IFF 

HRDERS/REGIN/ ;STACK POINTER INCORRECT FOR MARK 
-ENDC 

.***** ******************************************************** ** 
CMP (j7,R5 ?IS R5 CORRECT? 



?push a parameter on the stack 
;push mark 1 on the stack 
;load parametfr pointer 
;go to subroutine 

;get the parameter 
;fxit subroutine 

;did subroutine get the parameter 
<subroutine did not get pushed parameter> 

**************************************** 

;SUBROUTINE DTD NOT GET PUSHED PARAMETER 



BEQ 



<MARK 



DID 

*** 



- IF B <> 

HRDFRS /REG IN/MULL 



_ NOT LOAD R5> 

******************************** 



-IFF 

HRD~~ 



HRDERS/BEGIN, 
-ENDC 



;MARK DID NOT LOAD 
JMARK DID NOT LOAD R5 
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******* ****** ***************** 



firft****ft»** 



000502 s 
000506* 

000530" 



000530" 



012702 

oio257 
006762 
005767 
001403 



001 

104405 



000010 

177777 001074 



001600* 
001062 



000000- 000000 



? SBTTL 
3SS 



TEST THE SXT INSTRUCTION 



MOV #10, R2 

MOV #-l,TEM«> 

CCC 

SXT C(R2) 

TST TEMP 

8EQ 4S 

HRDER , _ .._ 

J*********************************** 

.IF B <> 

HRDERS, RECIN, NULL 
. IFF 

HRDERS, BEGIN, ;0'S DOID NOT EXTEND INTO TEMP 



/SET HP INDFX REGISTER 

; CLEAR ILL CONDITION CODES 
; EXTEND O-S INTO TEMP CC(R2)3 



<0'S DOTD NOT EXTEND INTO TEMP> 

&******************************■*- 

;0'S DOID NOT EXTEND INTO TEMP 



000536* 
000542 s 
000544" 
000550- 
000556- 
000560- 



000560' 



000600" 
000602' 
000604* 

mm- 

000612- 

mm 

000624- 

000626- 



000626" 



000634- 
000636' 



000277 
006767 
022767 
001403 



001 
104405 



000257 
106746 

016746 

lol?06 



001 
104405 



005726 
005726 



001046 

001040 
177777 001032 



oooooo- 000000 



ym mm 

001403 



177216 



177776 
000642- 



oooooo- 000000 



; SBTTL 
55: 



6S: 
7S: 



;SET ALL CONDITION CODES 
? EXTEND l'S INTO TEMP 



CLR TEMP 
SCC 

SXT TEMP 

CMP #-1 , TEMP 

BEQ 5S 

HRDFR f <-l DID NOT EXTEND INTO TFMP> 

j *************************************************************** 

. TF B <> 

HRDERS, REG I N, NULL ;-l DID NOT EXTEND INTO TEMP 

HRDERS, REGI N, ;-l DID NOT EXTEND INTO TEMP 

• ENDC 

.******** ***************************************** 
TEST THE RTT INSTRUCTION 
SPUI^/SP 

s' 



MOV 

BIT 
BEQ 
CCC 
MFPS 



PS,-(SP) 
#RTTA,-(SP) 



} YES 

;CLPAR STATUS 
;PUSH ON ST AC* FOR RTT 
;SET UP PC FOR RTT 
;CLP COND CODES 



=1 BEFORE RTT 



-(SP) 

ccc 7S 

MOV 

MOV 
SCC 
RTT 

HRDER , 

• ******* 

•IF B <> 

HRDERS # BEG I N/ NULL 

• IFF 

HRDFRS #BEGIN r } RTT FAILFD 
- ENDC 

« ***************************************************** ********** 



;PUSH IT ON STACK AS PS FOR RTT 
;PUSH RETURN PC ONTO ST ACT 

; INSURE N=Z=V=C=1 ~ 

****I*****52** 
?RTT FAILED 



TST 
TST 



(SP) + 
(SPH 



;pop STAC* 

;pop STACK 
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000640* 
000642- 
000642- 
000644* 
000646* 
000650- 
000652- 
000652- 



000407 
100403 

18M8? 

000403 



001 
104405 



000660' 032767 



6 W 




000730' 



000736- 
000742- 

000744- 



001402 
000167 

005003 
012702 
005067 

mm 

070267 
100402 
101401 
102003 



001 
104405 



000 

022703 
001403 



000744' 



001 
104405 



000752- 
000754- 
000756- 



000 



005702 
001403 



001 
104405 



RTTAs 



10$: 



000000 - 000000 



000001 177130 
177330 



000005 
000746 

000002 000740 
000732 



oooooo- 000000 



000012 



oooooo- oooooo 



oooooo- oooooo 



IS: 



2$: 



SEQ 0009 



BLOS 
BVS 



RTTR 

10$ 

18! 

RTTR 



;go on with test 

/if n set/report error 

;IF C OR 2 SET.REPQRT ERROR 
;TF V SET/REPORT ERROR 
;IF YES GO ON WITH TEST 



<INCORRECT STATUS> 

****************** 

; INCORRECT STATUS 



HRDER , 

• *********** 

* IF B <> 

HRDERS /BEGIN, NULL 
.IP* 

HRDERS, BEGIN, ; INCORRECT STATUS 
. ENDC 

************************* 

BIT »1,SR1 
BEQ MUL I 

JMP START 



************************* 



CLR 
MOV 
CLR 
MOV 
SCC 
MUL 
BMI 
BLOS 



R3 

|5/R2 
PLIER 
#2, PLIER 



PLIER 

181 

IS 



,R2 



.IF B <> 

HRDFRS, REGIN, NULL 
• TFF 

HRDERS, BEGIN, ;CC 
. FNDC 



; CLEAR R3 

;load multipicand 

/load multiplier 

; preset condition codes 

/multiply 2x5 result in r2 (msh);r3 (lsh) 

/ if n set, report error 

;if c or z set, report error 

;IF V = 0,GO ON WITH TEST 
<CC'S NOT = TO 0'S> 



;CC'S NOT = 

NOT = TO 0-S 



11 



2,R3 



/RESULT =12? 
NCR IF ~ 



; BR AN( 
<INCORRECT 



THE RESULT (LSH) 
RESULT ( 

■ ******i 



CMP 

BEQ 

HRDER „ 

*********************************** 

.IF B <> 

HRDFRS /REG IN /NULL / INCORRECT RESULT (LSH) 

. IFF 

HRDERS, BEGIN, ; INCORRECT RESULT (LSH) 
. ENDC 

.*********** 
TST R2 
BEQ MUL 2 

.IF B O 

HRDERS, REGIN, NULL ; I NCORRECT RESULT ( MSH ) 

HRDERS, BEGIN, ; INCORRECT RESULT (MSH) 



IS CORRECT 



*************************** 

;CORRECT RESULT (MSH)? 
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******************************** 



413 



WW- 

001004' 

001010" 
001012' 
001014' 
001016" 
001020' 
001020' 



005003 
005067 
012702 
012767 
070267 

103003 
100002 
102401 
001003 



001020' 1044 



mm- 

001034" 
001034' 



001042' 
001046* 
001050' 



000 

mm 



001 
104405 



000 



022703 
001403 



001050' 



001 
104405 



000 



000662 

JoO?0^ 000650 
000644 



000000' 000000 



000000' 000000 



000000* 000000 



MUL2 : 



10$: 



2$: 



CLR 
CLR 
MOV 

mov 

Mt!L 

BCC 
8PL 
BVS 
BN E 

HROER 



R3 

PLpR 



5252, R2 
2,PLT£R 
LIER,R2 



;L0SD MULT IP IC AND 

; MULTIPLY 2X125252 RESULT=-1 (R2) 
?52524(R3),N=1,Z=0 C V=0,C=1 
;IF C = 0, REPORT ERROR 
;TF N = 0, REPORT ERROR 



; IF 
;IF 



V SET, REPORT ERROR 
Z = 0,GO ON WITH TEST 



. , < T MCURRECT CONDITION CODES> 

^ ****************************************************** ********* 

.IF B <> 

HRDERS, BEGIN, NULL ; T NCORRECT CONDITION CODES 

- IFF 

HRDERS, BEGIN, ; INCORRECT CONDITION CODES 
.FNDC 

• *************************************************************** 
CMP #-1, R? ;CORRECT MSH RESULT? 

B EQ 2 $ 

HRDFR , <INCORRECT MSH RESULT> 

**************************************************************** 
. TF B <> 

HRDFRS, BEGIN, NULL ;INCORRFCT MSH RESULT 

. IFF 

HRDERS, BEGIN, ; T NCQRRECT MSH RESULT 

; 5******* ******************************************************* 



CMP #52524,R3 
BFQ ASH1 
HRDFR , 

. ***************** 

• IF B <> 

HRDERS, BEGIN, NULL 
.IFF 

HRDERS, BEGIN, ; INCORRECT LSH RESULT 

• ENDC 

• ***************** 



;CORRECT LSH RESULT? 



; INCORRECT LSH RESULT 



001056' 
001062' 
001070' 

881872= 

001100* 
001102' 

001106' 
001110* 



005067 
012767 
012702 
000257 
000264 
000270 
072267 

100403 
001402 



000572 

000001 000564 
125252 



. SBTTL 
ASHl: 



TEST ASH INSTRUCTION 



CLR 
MOV 
MOV 
CCC 
SFZ 
SEN 
ASH 



BMI 
BFQ 



PLIFR 

ff 1/PLTER 

#125252, R2 



PLIER,R2 



10S 
10$ 



;LO AD SHIFT VALUE (+1 OR 
;GET VALUE TO BE SHIFTED 
; PRE-CLE AR ALL CC BITS 
;PRE-SET 7 BIT 
;PRE-SET N BIT 
;SHIFT 1 PLACE LEFT RES TILT 
;N=0,Z=0,V=l,C=l 
;IF N SET, REPORT ERROR 
; IF Z SET, REPORT ERROR 



1 PLACE LEFT) 
(#125252) 



52524 
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453 
454 

455 



000000' 000000 
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TEST ASH INSTRUCTION 




000000' 000000 



000510 

177777 000502 



10$: 



1$: 



ASH2: 



000000' 000000 



ASHCl: 



10$: 



BVC 
BCS 



is* 
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;IF V = 0, REPORT ERROR 
;IF C SET, GO ON WITH TEST 



SEQ 0011 



} INCORRECT CONDITION CODES 



.IF B <> 

HRDERS, BEGIN, NULL 

• IFF 

HRDERS, BEGIN, ; INCORRECT CONDITION CODES 

• FNDC 



CMP 

BEQ 

HRDER . 
• * **** * 



#52524, R2 
ASH2 



; RESULT CORRECT 7 
<INCORRFCT RESULT> 



;INCORREC? RESULT 



-IF 8 <> 

HRDERS, BEGIN, NULL 
.IFF 

HRDERS, BEGIN, ; INCORRECT RESULT 
. ENDC 



CLR 
MOV 
MOV 
ASH 

CM" 



PLIER 
#-l,PLIER 
152525, Rl 



PLlERtRl 
Rl, #25252 
ASHCl 



CMP 
BFQ 
HRDFR 

• ********** 
.IF B <> 

HRDERS, BEGIN, NULL 
.IFF 

HRDERS, BEGIN, ; INCORRECT PESULT 
. ENDC 

- ***** 



; LOAD SHIFT VALUE (-1 OR 1 PLACE RIGHT) 
;GET VALUF TO BE SHIFTED (#52525) 
; SHTFT 1 PLACE RIGHT RESULT = #25252 
; RESULT CORRECT? 



<INCORRECT RESULT> 
; INCORRECT RESULT 



; S BTTL TEST ASHC INSTRUCTION 



H7 

PLIER 



PLTEP 
— R3 



CLR 
CLR 
MOV 
MOV 
CCC 
SEZ 
SEC 
ASHC 



BPL 10$ 

BEQ 10$ 

BVC 10$ 

BCC 1$ 

HRDFR , 

. ***************** 
.TF B <> 



;CL FAR MSH RESULT REGISTER 

;LOAD SHIFT COUNT (16 PLACES LEFT) 

;GET VALUE TO BE SHIFTED (#125252) 

;PRF-CLFAP ALL CC BITS 

;PRE-SET 7 BIT 

;PRF-SET C BIT 

;SHIFT if IN R3 TO R2 

;cc: N=1,Z=0,V=1,C=0 

; IF N = 0, REPORT ERROR 

;IF Z SET, REPORT ERROR 

?IF V = 0, REPORT ERROR 

; IF C = 0,GO ON WITH TEST 

<INC0RRECT CONDITION CODES> 

Ir ***************** 
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SEQ 0012 



509 
510 



m 
m 

519 

if, 

522 
523 

If 

52? 
528 

lit 

m 

533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 



001240 ' 104405 000000* 000000 



001246* 
001252* 
001254* 



000 



022702 
001403 



001254' 



001 
104405 



Ool?64- 
001266' 



QQ57^ 



D0140 



001266' 



001 
104405 



001302' 
001310- 
001314' 
001316- 
001320- 
001322- 
001324* 

001330- 
001332* 

mil- 

001336- 



001336- 104405 000000- 000000 



125252 



oooooo- 000000 



oooooo- oooooo 



000352 

177760 000344 
125252 



000324 



1$ : 



2S: 



ASHC2: 



001344* 
001350- 
001352- 



001352* 



022702 
001403 



001 
104405 



177777 



OOOOOO* oooooo 



10$: 



1$: 



HRDERS/REGIM/NULL 

• IF** 

HRDFRS/BEGIN/ 



;INC0RRECT CONDITION 
; INCORRECT CONDITION CODES 



SHIFT> 

******** 



********************* 

CMP »125252/R2 ;R2=#125252? 

BEQ 2$ ; BRANCH IF CORRECT RESULT 

HRDER , <INCORRECT RESULT FOR ASHC LEFT 

*************************************************** ******** 

.IF B <> 

HPDERS/REGIN/NULL ; INCORRECT RESULT FOR ASHC LEFT SHIFT 

• £ FF 

HRDFRS /BEGIN/ ; INCORRECT RESULT FOR ASHC LEFT SHIFT 

• ENDC 

.**#**#** ************************************************* ****** 

TST ASHC2 JHAS * SHIFTED OUT OF R3? 

HRDER , * <# MAS NOT SHIFTED OUT OF R3 PROPERL Y> 

**************************************************************** 

-IF B <> 

HRDERS/BEGIN/NULL ;« WAS NOT SHIFTED OUT OF R3 PROPERLY 

. TFF 

HRDFRS/ BEGIN/ ;# WAS NOT SHIFTED OUT OF R3 PROPERLY 
.ENDC 

. ******** ********************************************* ********** 
; CLEAR RESULT REGISTER 
/LOAD SHIFT ^COUNT^l 



CLR 
CLR 
MOV 
MOV 
CLN 
SFZ 
SEV 
SEC 
ASHC 

3PL 

BLOS 

BVC 



R3 

PLIER 



/LOAD # TO BE SHIF 
; PRE-CLE AR N BIT 



:i6 p 

^ED ' 



PLACES RIGHT) 
(1125252) 



PLIER/R2 

10$ 
10$ 
1$ 



;PRE-SET 7. BIT 

. « V M 

; " c " 

/SHIFT R2 16 PLACFS RIGHT INTO R3 

?CC: N=1,7=V=C=G 

MF N = 0, REPORT ERROR 

;IF C OR Z SET/REPORT ERROR 

;IF V = 0,GO ON WITH TEST 



HRDERS/B' 



„. ./-BEGIN/ NULL 

• TFF 

HRDFRS /BEGIN/ 
.ENDC 

CMP #-l/R2 
BFQ 2$ 
HRDER / 

• ******************** 

• IF B <> 

HRDERS/BEGIN/NULL 

• IFF 

HRDERS/BEGIN/ ;SIGN FAILED TO EXTEND 



; INCORRECT CONDITION CODES 
; INCORRECT CONDITION CODES 
******* 
;niD SIGN EXTEND IN R2? 

TO 



<SIGN^FAILED TO EXTEND> ^ 
;SIGN FAILED TO EXTEND 
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565 
566 

Ml 

569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 

m 

594 
595 
596 
597 
598 
599 
600 



602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
61B 
619 
620 



1366- 



000 



)22703 125252 
)01403 



001 

001366- 104405 000000' 000000 



012701 
005002 
012703 
000277 
071261 

100402 
101401 
102003 



052525 
001556' 



/SBTTL 

DIVl: 



10$: 



001 

001422' 104405 000000- 000000 



001430' 
001434- 
001436' 



001444' 
001446- 
001450- 



001450' 



001456' 
001462' 



020227 
001403 



000001 



001 

104405 000000- OOOOOO 



005703 
001403 



001 

104405 000000- 000000 



005067 000172 
012704 157777 



K125252/R3 
QIV1 



CMP 
BEQ 

HRDER / 

• *********** 

.IF B <> 

HRD PR $ /BEGIN/ NULL 

• IFF 

HRDERS/BEGIN, ;R2 

.ENDC 

. ****** 
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;DID R2 SHIFT TO R3 

<R2 DTD NOT SHIFT INTO R3> 

**************************** 

;R2 DTD NOT SHIFT INTO R3 
NOT SHIFT INTO R3 



SEQ 0013 



*************** 



TEST THE DIVIDE 

Rl 



INSTRUCTION 



MOV 

CLR 
MOV 
SCC 
DIV 

BMI 

BLOS 

BVC 

HRDER 



#4/ 
R2 

#52525/R3 

8(Rl)/R2 

10S 
10$ 

1$ 



. ************************** 



;LOAD INDEX REGISTER 

/CLEAR QUOTIENT REGISTER 

/LOAD LSH DIVIDEND 

;PRE SET THE CONDITION CODES 

;DIVIDE #52525 BY B(R1) (*52525) 

; QUOTIENTS, REM=0,C=N=V=Z=0 

? TF N SET/REPORT ERROR 

; TF C OR 7. SET/REPORT ERROR 

;IF V = 0/GO ON WITH TEST 

<T NCORRECT CONDITION CODES> 



.IF B <> 

HRDER$,BEGiN,NULL 
.IFF 

HRDFRS /BEGIN / ; 
. ENDC 

.******** * 
CMP R2/itl 
BFQ 2$ 
HRDER / 
.************************ 



; INCORRECT CONDITION CODES 
INCORRFCT CONDITION CODES 



*********** 



/ quotient correct? 
;branch if the quotient 



is correct 

**************** 



;tncorrfct quotient 



.IF B <> 

HRDFRS, BEGIN/NULL 
. IFF 

HRDERS/BEGIN/ ; INCORRECT QUOTIENT 

• FNDC 

. *************************************************************** 
TST R3 REMAINDER CORRECT? 

BEQ DTV2 ;BRANCH IF THF REMAINDER IS CORRECT 

HRDER / <INCORRECT REMAINDER) 

* ********** ***************************************************** 
.IF B <> 

HRDFRS /BEG IN /NULL JlNCORRFCT REMAINDER 

. IF* 

HRDERS/BEGIN/ ; INCORRECT REMAINDER 
.ENDC 

. *************************************************************** 



CLR 
MOV 



PLIER 

&157777/R4 



/LOAD MSH DIVIDEND 
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621 

til 

m 

626 

ttl 

629 
630 

fa 

m 

635 

? 3 * 

SIS 

640 

in 

643 
644 
645 
646 
647 
648 
649 
650 
651 

m 

654 
655 

ih 

658 
659 

til 

662 
663 

til 

666 
667 

sis 

670 
671 

tn 

674 
675 
676 



001466* 
001472' 
001500- 
001502- 

m506- 
51ft* 
001512- 
001514- 
001514' 



001514' 



001522- 
001526- 

001530- 



001530* 



012705 

8Jo 277 
071467 

100402 
101401 
102003 



001 
104405 



000 



020427 
001403 



001 
104405 



001536- 
001542- 
001544* 



000 

7 

3 



WW 



001544' 



001556' 
001560' 
001562* 



001566 

001570' 

001572 
001574' 
001576' 
001600' 
001602' 



104481 
000 



000167 

Willi- 

052525 

00.1566- 

177777 

001572- 

001572' 

125252 

001576- 

052525 
000000 
001600 " 

001610- 



100001 

100000 000154 



000146 



000000- 000000 



040000 



000000- 000000 



100001 



000000- 000000 



10$: 



1$: 



«=B+10 
A: 



MOV 

sec 

OTV 

BMl 

BLOS 

BVC 



#100001 ,R5 
#100000, PLIER 



PLIER/R4 



10$ 



/LOAD LSH DIVIDFND 
J LOAD DIVTSOR INTO TEMP 
;PRE-SET ALL CC BITS 
;DIVID£ #157777 100001 BY 100000 
; QUOTIENT^ 40000, RFM= 100 001 ,C--N=V= 
; TF N SE T, RE PORT ERROR 
C OR 7 S E^jr REPORT ERROR 



•if V = 0,'GO Oft WITH * TEST 

<INCORRECT CONDITION CODES> 
***************************** 

;tncorrect condition codes 



******** 

• IF B <> 

HRDERS, BEGIN, VULL 
. IFF 

HRDERS, BEGIN, ; INCORRECT CONDITION CODES 

.-m***** ************** 

CMP R4,*40000 ;QUOTIENT CORRECT? 

BEQ 2S ; BRANCH IF THF QUOTIENT IS CORRECT 

HRDER , < I NCQRRECT OUOTTENT> 

******************************************** 

. TF B <> 

HRDERS, BEGIN, NULL 



******************** 



********* 



.IFF 

HRDERS, BEGIN, 



************************ 

; INCORRECT QUOTIENT 
; TNCURRECT QUOTIENT 



.ENOC 

CMP R5,fl00001 
BEQ 3$ 
HRDFR ( 

• ****************** 

. IF B <> 

HRDERS, BEGIN, NULL 

• IFF 

HRDERS, BEGIN, ; INCORRECT REMAINDER 

• ENDC 

• ********************** 



************************************** 

} REMAINDER CORRECT? 

; BRANCH IF THE REMAINDER IS CORRECT 
<INCORRFCT REMAINDER) 
***************************************** 

} INCORRECT REMAINDER 



********* 



JMP START 

125252 



-I 
A+4 



125252 

4*10 

052525 



c 



f ADDRESS OF B 



; ADDRESS OF A+10 
; ADDRFSS OF C 
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677 
678 
679 
680 
681 
682 
683 
684 
685 
686 

m 

691 



001610- 
001612- 



001616' 
001620 



001624- 
001626- 
001654- 



000000 
001610- 

001616- 

001620" 

000000 

006401 

000000 

140000 

177776 

000000 
000013 
000000 
000001 



MACYll 30A(1052) 12-0CT-78 
TEST ASH INSTRUCTION 

TEMP : 

TEMP 

» = TEHP«-6 

TEMP*10 

D:0 

MARK1= 6401 

cnt: 

UM=140000 

PS=177776 

y:o 

X: .RL*W 11. 

PLIER:0 

.END 
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; ADDRFSS OF TEMP 

; ADDRESS OF TEMP+10 OR "D M 

;PROCESSOR STATUS WORD 



SEQ 0015 
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k 

ACSR 
&0DR 
"DR22= 



t 

* ASHC1 
\ ASHC2 

nm 

• ' AST IT 

AW AS 
B 

B RG f N 



BTTO = 
BIT i = 
BIT10 

\\\\\ \ 

BIT13 = 
BTT14 = 

l\W l 

sm \ 

BTT5 = 
BIT6 = 
BTT7 = 
BITS = 
BTT9 = 
BREAKS= 
BRl 
BR2 

BTODS = 
C 

CDATAS= 
CNT 

CONFIG 
CSRA 

BaTCK5= 

DATER$= 

DIV1 

DIV2 

DVID1 

END ITS= 




OOOOQl 

000002 
002000 
004000 

mm 

040 

100-._ 
000004 
000010 
000020 
000040 

mm 

000400 

IW 

000012R 

000013R 

104421 

001600R 

104412 

001622R 

000056R 

000100R 

mm* 

104404 
001374R 

SSioi Jr 

104413 




153t 



MACYll 30A<1052> 12-0CT-78 16:25 PAGE 18 
CROSS REFERENCE TABLE — USER SYMBOLS 

669 671 



492ft 
535ft 

Ml! 
























m 


662 
189 
394 
593 


665 
207 
415 
603 


222 
425 
613 


234 

ffl 


261 
459 
643 


271 
469 

653 


281 
484 


298 
509 


312 
519 


334 
529 


351 
552 



673 a 



580ft 
6t9» 



177 



189 
394 
593 



207 
415 
603 



222 
425 
613 



234 
435 
633 



261 
459 
643 



281 

46§ 484 
653 



298 
509 



312 
519 



334 
529 



351 
552 



374 

562 
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SEQ 0017 



HRDPAS 

ICONT 

ICOUNT 

mr 

IMTR 

Hh 

MAP22S= 
MARKO 

MARKOA 
MARTI = 
HQDNAM 
MOOSP 
MSGNS = 
HSGSS = 
MSGS = 
HUL1 
MUL2 
MULL = 



Q»EH = 

OTOAS = 
PASCNT 
PIRQS = 
PLIER 

POPSP = 
POPSP2= 
PRTY = 
PRTYO = 
PRTY1 = 
PRTY2 = 
PRTY3 = 
PRTY 4 = 
PRTY5 = 
PRTY6 
PRTY7 
PS 
PSW 
PUSH 
PUSH2 
RANDS = 
R ANNUM 
RKSTRT 
R3S1 
RES 2 
RSTRT 
RTTA 
RTTB 
SBAOR 
SOBl 
SOB? 
SOB 3 
SOB4 



000050R 
000036R 
000040R 

smm 

000120R 

000176R 

iSolloR 
000436R 
006401 

mm% 

104403 

104402 

104401 

000674R 

000764R 

000000 



000000 

104420 
000034R 
000004 
001654R 

mm 

000000 
000000 
000040 
000100 
000140 
000200 
000240 
000300 
-""340 
J76 
_ ?776 
005746 
024646 
104417 
000054R 

mm 

000060R 
000112R 
000642R 
000660R 
0001Q2R 
000342R 



= UUUJU 

= 17777 



246* 

mi 

683ft 
171ft 



361ft 

401S 

189 

394 

593 

126 

157 



364* 
499 



124 



207 
415 
603 
127 
159 



366 
536* 



173ft 



222 


234 


261 


271 




298 


312 


334 


425 


435 


459 


469 


4§4 


509 


519 


529 


613 


633 


643 


653 






128 


129 


146 


147 


148 


149 


150 


151 


160 


162 


163 


164 


173ft 








402* 


404* 


405 


443* 


444* 


449 


475* 


476* 


537* 


543 


619* 


622* 


624 


690ft 







351 
552 



374 

562 

153 



000356R 
000370R 



175ft 



342ft 
346 

217ft 
218 

mi 
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000360R 
000042R 

~R 




2311 
137f 

173* 
139* 
133# 
If 

m 

m 

32 
31# 

J« 

1481 

in! 
an 

173f 

lis 

163f 

m* 

120* 
180* 

J? 9 
665* 



241 



246 
166 
321 



174* 
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320 



SEQ 0018 



201* 



200* 
669* 



358 



2,22 



7t>8 



660 



293 



6B8* 
680* 



307 



677* 



678 



680 



681 



689* 



ABS. 000000 
001656 



000 
001 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 
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